home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / RS232.ARC / %c3128%a4%cbERNAL.EQU < prev    next >
Text File  |  2019-04-13  |  4KB  |  227 lines
  1. ;úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
  2. ;              ├128ñ╦ERNAL.EQU
  3. ;
  4. ;           ┬Y  ─ENNY ╞IGUERRES  12/24/87  07:30:00 ╨M
  5. ;               707 ╬ ╙AN╩OAQUIN ╙T  ┴PT#5
  6. ;               ╙TOCKTON ├A 95202  
  7. ;
  8. ;  DEFINE ALL STANDARD ├128 SYSTEM VARIABLES AND ╨OWER ├ 
  9. ;  SYSTEM VARIABLES FOR  LINKAGE TO ╨OWER ├ PROGRAMS AND ACESS TO 
  10. ;  ├128 KERNAL
  11. ;
  12. ;              ├= 128 KERNAL AND SYSTEM DEFINITIONS
  13. ;úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
  14. ;  MAKE THESE NAMES PUBLIC ITEMS AVAILABLE TO ALL OTHER .A FILES
  15.  
  16.    .DEF ACPTR
  17.    .DEF CHKIN
  18.    .DEF CHKOUT
  19.    .DEF CHRIN
  20.    .DEF CHROUT
  21.    .DEF CIOUT
  22.    .DEF CLALL
  23.    .DEF CLOSE
  24.    .DEF CLRCHN
  25.    .DEF GETIN
  26.    .DEF CINT
  27.    .DEF IOBASE
  28.    .DEF IOINIT
  29.    .DEF LISTEN
  30.    .DEF LOAD
  31.    .DEF MEMTOP
  32.    .DEF OPEN
  33.    .DEF PLOT
  34.    .DEF RAMTAS
  35.    .DEF RDTIM
  36.    .DEF READST
  37.    .DEF RESTOR
  38.    .DEF SAVE
  39.    .DEF SCNKEY
  40.    .DEF SETLFS
  41.    .DEF SETNAM
  42.    .DEF SCREEN
  43.    .DEF SECOND
  44.    .DEF SETMSG
  45.    .DEF SETTIM
  46.    .DEF SETTMO
  47.    .DEF STOP
  48.    .DEF TALK
  49.    .DEF TKSA
  50.    .DEF UDTIM
  51.    .DEF UNLSN
  52.    .DEF UNTLK
  53.    .DEF VECTOR
  54.  
  55.    .DEF C$PARAMSIZE
  56.    .DEF C$PARAMPTR
  57.    .DEF C$LOCAL
  58.    .DEF C$PARAMS
  59.    .DEF C$JSRñFAR
  60.    .DEF C$MEM
  61.    .DEF ╙╘┴╓┼├
  62.    .DEF ┴ñ╥EG
  63.    .DEF ╪ñ╥EG
  64.    .DEF ┘ñ╥EG
  65.    .DEF ┬ANK
  66.    .DEF ╨├ñ╚IGH
  67.    .DEF ╨├ñ╠OW
  68.    .DEF ══╒ñ╥EGS
  69.    .DEF ══╒ñ├╥
  70.    .DEF C$STATUS
  71.    .DEF C$CURRENT
  72.    .DEF C$NEXT
  73.    .DEF C$INPUT
  74.    .DEF C$OUTPUT
  75.    .DEF TODA
  76.    .DEF TODB
  77.    .DEF QTSW
  78.    .DEF COLOR
  79.    .DEF LOCKS
  80.    .DEF SCTOP
  81.    .DEF SCBOT
  82.    .DEF SCLF 
  83.    .DEF SCRT
  84.    .DEF RS232SREG
  85.    .DEF RS232EN
  86.    .DEF RS232PORT
  87.    .DEF STATUS
  88.    .DEF VIC
  89.    .DEF SID
  90.    .DEF CIA1
  91.    .DEF CIA2
  92.    .DEF RS232╔BUF 
  93.    .DEF RS232╧BUF
  94.    .DEF RIDBE
  95.    .DEF RIDBS
  96.    .DEF RODBE
  97.    .DEF RODBS
  98.    .DEF TIMER
  99. ;úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
  100. ;  NOW FIX THE ADDRESSES OF THESE LABELS
  101. ;  FOR ASSEMLER RESOLUTION
  102. ;
  103. C$PARAMSIZE = $00FB
  104. C$PARAMPTR = $0086
  105. C$LOCAL    = $00A0
  106. C$PARAMS   = $0400
  107. C$JSRñFAR  = $0124
  108. C$MEM      = $0135
  109. ╙╘┴╓┼├     = $02B9 
  110. ┴ñ╥EG      = $0006
  111. ╪ñ╥EG      = $0007
  112. ┘ñ╥EG      = $0008
  113. ┬ANK       = $0002 
  114. ╙ñ╥EG      = $0005
  115. ╨├ñ╚IGH    = $0003
  116. ╨├ñ╠OW     = $0004
  117. ══╒ñ╥EGS   = $D500
  118. ══╒ñ├╥     = $FF00
  119. C$STATUS   = $0500
  120. C$CURRENT  = $0510
  121. C$NEXT     = $0511
  122. C$INPUT    = $051A
  123. C$OUTPUT   = $051B
  124.  
  125.  
  126. ACPTR      = $FFA5
  127. CHKIN      = $FFC6
  128. CHKOUT     = $FFC9
  129. CHRIN      = $FFCF
  130. CHROUT     = $FFD2
  131. CIOUT      = $FFA8
  132. CINT       = $FF81
  133. CLALL      = $FFE7
  134. CLOSE      = $FFC3
  135. CLRCHN     = $FFCC
  136. GETIN      = $FFE4
  137. IOBASE     = $FFF3
  138. IOINIT     = $FF84
  139. LISTEN     = $FFB1
  140. LOAD       = $FFD5
  141. MEMBOT     = $FF9C
  142. MEMTOP     = $FF99
  143. OPEN       = $FFC0
  144. PLOT       = $FFF0
  145. RAMTAS     = $FF87
  146. RDTIM      = $FFDE
  147. READST     = $FFB7
  148. RESTOR     = $FF8A
  149. SAVE       = $FFD8
  150. SCNKEY     = $FF9F
  151. SCREEN     = $FFED
  152. SECOND     = $FF93
  153. SETLFS     = $FFBA
  154. SETMSG     = $FF90
  155. SETNAM     = $FFBD
  156. SETTIM     = $FFDB
  157. SETTMO     = $FFA2
  158. STOP       = $FFE1
  159. TALK       = $FFB4
  160. TKSA       = $FF96
  161. UDTIM      = $FFEA
  162. UNLSN      = $FFAE
  163. UNTLK      = $FFAB
  164. VECTOR     = $FF8D
  165. BOOT       = $FF53
  166. LKUPLA     = $FF59
  167. LKUPSA     = $FF5C
  168. SWAPPER    = $FF5F
  169. PFKEY      = $FF65
  170. SETBNK     = $FF68
  171. GETCNFG    = $FF6B
  172. JSRFAR     = $FF6E
  173. JMPFAR     = $FF71
  174. INDFET     = $FF74
  175. INDSTA     = $FF77
  176. INDCMP     = $FF7A
  177. PRIMM      = $FF7D
  178. SPINñOUT   = $FF47
  179.  
  180.  
  181. QTSW       = $00F4 
  182. COLOR      = $00F1 
  183. LOCKS      = $00F7
  184. SCTOP      = $00E5 
  185. SCBOT      = $00E4 
  186. SCLF       = $00E6 
  187. SCRT       = $00E7 
  188. STATUS     = $0090 
  189. RS232EN    = $0A0F
  190. RS232SREG  = $0A14
  191. RS232PORT  = $DD01 
  192. TODA       = $DC08 
  193. TODB       = $DD08
  194. CIA1       = $DC00 
  195. CIA2       = $DD00
  196. SID        = $D400
  197. VIC        = $D000
  198. RS232╔BUF  = $0C00 
  199. RS232╧BUF  = $0D00
  200. RIDBE      = $0A18
  201. RIDBS      = $0A19
  202. RODBE      = $0A1A
  203. RODBS      = $0A1B
  204. TIMER      = $0A1D 
  205. ;úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
  206. ;           ╬OW TO DECLARE THE ╨OWER ├  SYSTEM KERNAL ACCESS LABLES
  207. ;           FOR ├ FUNCTION ACCESS
  208. ;
  209. ;   ╬╧╘┼:  THESE ARE ALL SUBROUTINES STORED IN KERNAL.OBJ THAT USE 
  210. ;          JSRñFAR  TO REACH THE BANK15 CONFIGUREATION AND CALL THE KERNAL 
  211. ;úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
  212.  
  213.    .REF C$FUNCTñINIT 
  214.    .REF C$KERNIN
  215.    .REF C$KERNOUT
  216.    .REF C$READST
  217.    .REF C$SETLFS
  218.    .REF C$SETNAM
  219.    .REF C$OPEN
  220.    .REF C$CLOSE
  221.    .REF C$CHKIN
  222.    .REF C$CHKOUT
  223.    .REF C$CLRCHN
  224.    .REF C$CHROUT
  225.    .REF C$GETIN
  226.    .REF C$SETBNK
  227.